filename="WTWputty_2020-03-05_225937"
setwd("C:/Users/Steffen Weber/Desktop/2020-03-06/WTW_Ausleseformat")
data <- as.data.frame(read.table(file = paste(filename,".txt",sep=""), header = F, sep = "\t",dec = ","))
row=1
col=1
DATA=matrix(data=NA,nrow=1,ncol=12)
for (i in 1:nrow(data)){
point=as.character(data[i,1])
if (point=="_____________________________"){
row=row+1
col=1
DATA=rbind(DATA,rep(NA,12))
}else{
DATA[row,col]=point
col=col+1
}
i=i+1
}
write.table(x = DATA, file = paste(filename,"_konvertiert.txt",sep=""), row.names = FALSE, col.names = FALSE)
filename="WTWputty_2020-03-05_225937"
setwd("C:/Users/Steffen Weber/Desktop/2020-03-06/WTW_Ausleseformat")
data <- as.data.frame(read.table(file = paste(filename,".txt",sep=""), header = F, sep = "\t",dec = ","))
data
row=1
col=1
DATA=matrix(data=NA,nrow=1,ncol=12)
for (i in 1:nrow(data)){
point=as.character(data[i,1])
if (point=="_____________________________"){
row=row+1
col=1
DATA=rbind(DATA,rep(NA,12))
}else{
DATA[row,col]=point
col=col+1
}
i=i+1
}
DATA
DD=cbind(DATA[,1], DATA[,7])
write.table(x = DD, file = paste(filename,"_konvertiert.txt",sep=""), row.names = FALSE, col.names = FALSE)
DD=cbind(DATA[,1], DATA[,7])
write.table(x = DD, file = paste(filename,"_konvertiert.txt",sep=""), row.names = FALSE, col.names = FALSE)
source(file = "../../FUNKTIONEN.R")
#source(file = "0_R/04_Plotter.R")
###############################################################_
#-#-#-# BIBLIOTHEK - package  ----
library(ISI.Toolbox)
library(ISI.Toolbox)
library(zoo)#
library(dygraphs)
library(MASS)
###############################################################_
#-#-#-# LDO-Rohdaten einlesen  ----
LinkRohdatenbank    = "../../../1_Daten/2_Optimierter Kohlenstoffabbau - Labor/0_Rohdaten/"
LinkPridatenbank    = "../../../1_Daten/2_Optimierter Kohlenstoffabbau - Labor/1_Primaerdaten/"
LinkVersuchstage = dir(LinkRohdatenbank)
LinkVersuchstage
dir(LinkRohdatenbank)
source(file = "../../FUNKTIONEN.R")
#source(file = "0_R/04_Plotter.R")
###############################################################_
#-#-#-# BIBLIOTHEK - package  ----
library(ISI.Toolbox)
library(ISI.Toolbox)
library(zoo)#
library(dygraphs)
library(MASS)
###############################################################_
#-#-#-# Daten einlesen  ----
LinkPridatenbank    = "../../../1_Daten/2_Optimierter Kohlenstoffabbau - Labor/1_Primaerdaten/"
LinkVersuchstage = c("2013-03-11", "2013-03-18", "2013-04-02", "2013-04-09", "2014-04-08", "2014-04-28", "2014-05-05",
"2018-02-13", "2018-03-05", "2019-02-19", "2019-02-27", "2019-04-04", "2020-03-05")
Weitere_Versuchstage = c("2019-02-21", "2019-02-25", "2019-02-26", "2019-02-28", "2019-03-01", "2019-03-05",
"2019-04-08", "2019-04-10") # Proben wurden an einem Tag gezogen. Beatmet wurden sie an mehreren Tagen (Wittwer)
Tag = 13
Btag = 2
###############################################################_
#Weitere_Versuchstage[Btag]
O2Data = read.table(paste(LinkPridatenbank, LinkVersuchstage[Tag], "/O2/", Weitere_Versuchstage[Btag], "_O2Konzentration.txt", sep=""),
sep=" ", header=FALSE, dec = ".", skip = 1)
Tag = 10
O2Data = read.table(paste(LinkPridatenbank, LinkVersuchstage[Tag], "/O2/", Weitere_Versuchstage[Btag], "_O2Konzentration.txt", sep=""),
sep=" ", header=FALSE, dec = ".", skip = 1)
O2Data = read.table(paste(LinkPridatenbank, LinkVersuchstage[Tag], "/O2/", "_O2Konzentration.txt", sep=""), #, Weitere_Versuchstage[Btag]
sep=" ", header=FALSE, dec = ".", skip = 1)
paste(LinkPridatenbank, LinkVersuchstage[Tag], "/O2/", "_O2Konzentration.txt", sep="")
Tag
LinkPridatenbank    = "../../../1_Daten/2_Optimierter Kohlenstoffabbau - Labor/1_Primaerdaten/"
LinkVersuchstage = c("2013-03-11", "2013-03-18", "2013-04-02", "2013-04-09", "2014-04-08", "2014-04-28", "2014-05-05",
"2018-02-13", "2018-03-05", "2019-02-19", "2019-02-27", "2019-04-04", "2020-03-05")
Weitere_Versuchstage = c("2019-02-21", "2019-02-25", "2019-02-26", "2019-02-28", "2019-03-01", "2019-03-05",
"2019-04-08", "2019-04-10") # Proben wurden an einem Tag gezogen. Beatmet wurden sie an mehreren Tagen (Wittwer)
Tag = 10
Btag = 2
###############################################################_
#Weitere_Versuchstage[Btag]
O2Data = read.table(paste(LinkPridatenbank, LinkVersuchstage[Tag], "/O2/",LinkVersuchstage[Tag] ,"_O2Konzentration.txt", sep=""), #, Weitere_Versuchstage[Btag]
sep=" ", header=FALSE, dec = ".", skip = 1)
paste(LinkPridatenbank, LinkVersuchstage[Tag], "/O2/",LinkVersuchstage[Tag] ,"_O2Konzentration.txt", sep="")
LinkPridatenbank    = "../../../1_Daten/2_Optimierter Kohlenstoffabbau - Labor/1_Primaerdaten/"
LinkVersuchstage = c("2013-03-11", "2013-03-18", "2013-04-02", "2013-04-09", "2014-04-08", "2014-04-28", "2014-05-05",
"2018-02-13", "2018-03-05", "2019-02-19", "2019-02-27", "2019-04-04", "2020-03-05")
Weitere_Versuchstage = c("2019-02-21", "2019-02-25", "2019-02-26", "2019-02-28", "2019-03-01", "2019-03-05",
"2019-04-08", "2019-04-10") # Proben wurden an einem Tag gezogen. Beatmet wurden sie an mehreren Tagen (Wittwer)
Tag = 13
LinkVersuchstage[Tag]
Tag = 13
Btag = 2
###############################################################_
#Weitere_Versuchstage[Btag]
O2Data = read.table(paste(LinkPridatenbank, LinkVersuchstage[Tag], "/O2/",LinkVersuchstage[Tag] ,"_O2Konzentration.txt", sep=""), #, Weitere_Versuchstage[Btag]
sep=" ", header=FALSE, dec = ".", skip = 1)
